home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / multlang.zip / MDLGS.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-14  |  2KB  |  98 lines

  1. unit Mdlgs;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Mcombbox, MultLang, MDialogs;
  8.  
  9. type
  10.   TDlgsDlg = class(TForm)
  11.     Label1: TLabel;
  12.     Button1: TButton;
  13.     Label2: TLabel;
  14.     Button2: TButton;
  15.     Button3: TButton;
  16.     Button4: TButton;
  17.     Button5: TButton;
  18.     Button6: TButton;
  19.     Button7: TButton;
  20.     Button8: TButton;
  21.     MOpenDialog1: TMOpenDialog;
  22.     MSaveDialog1: TMSaveDialog;
  23.     MPrintDialog1: TMPrintDialog;
  24.     MPrinterSetupDialog1: TMPrinterSetupDialog;
  25.     MFindDialog1: TMFindDialog;
  26.     MReplaceDialog1: TMReplaceDialog;
  27.     MFontDialog1: TMFontDialog;
  28.     MColorDialog1: TMColorDialog;
  29.     MultLang1: TMultLang;
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  33.     procedure Button3Click(Sender: TObject);
  34.     procedure Button4Click(Sender: TObject);
  35.     procedure Button5Click(Sender: TObject);
  36.     procedure Button6Click(Sender: TObject);
  37.     procedure Button7Click(Sender: TObject);
  38.     procedure Button8Click(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. var
  46.   DlgsDlg: TDlgsDlg;
  47.  
  48. implementation
  49.  
  50. {$R *.DFM}
  51.  
  52. procedure TDlgsDlg.Button1Click(Sender: TObject);
  53. begin
  54.   MOpenDialog1.Execute
  55. end;
  56.  
  57. procedure TDlgsDlg.Button2Click(Sender: TObject);
  58. begin
  59.   MSaveDialog1.Execute;
  60. end;
  61.  
  62. procedure TDlgsDlg.FormClose(Sender: TObject; var Action: TCloseAction);
  63. begin
  64.   Action:=caFree;
  65. end;
  66.  
  67. procedure TDlgsDlg.Button3Click(Sender: TObject);
  68. begin
  69.   MPrintDialog1.Execute;
  70. end;
  71.  
  72. procedure TDlgsDlg.Button4Click(Sender: TObject);
  73. begin
  74.   MPrinterSetupDialog1.Execute;
  75. end;
  76.  
  77. procedure TDlgsDlg.Button5Click(Sender: TObject);
  78. begin
  79.     MFindDialog1.Execute;
  80. end;
  81.  
  82. procedure TDlgsDlg.Button6Click(Sender: TObject);
  83. begin
  84.   MReplaceDialog1.Execute;
  85. end;
  86.  
  87. procedure TDlgsDlg.Button7Click(Sender: TObject);
  88. begin
  89.   MFontDialog1.Execute;
  90. end;
  91.  
  92. procedure TDlgsDlg.Button8Click(Sender: TObject);
  93. begin
  94.   MColorDialog1.Execute;
  95. end;
  96.  
  97. end.
  98.